home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 September / 64er_Magazin_88-09_1988_Markt__Technik_de_Side_A.d64 / n analyse (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  302b  |  18 lines
  1. 0 a$(0)="elite"
  2. 1 a$(1)="proportional"
  3. 2 a$(2)="schmal"
  4. 3 a$(3)="fett"
  5. 4 a$(4)="doppel"
  6. 5 a$(5)="breit"
  7. 6 a$(6)="kursiv"
  8. 7 a$(7)="unterstreichen"
  9. 8 :
  10. 10 input"wert fuer n";n:print
  11. 12 :
  12. 20 for i = 7 to 0 step -1
  13. 30 : if n < 2^i then 70
  14. 40 : print a$(i)
  15. 50 : n = n - 2^i
  16. 60 : if n <= 0 then end
  17. 70 next i
  18.